<%
call htmlend()
Response.End
end sub
sub viewip()
password = Request.form("password")
id = Request.form("id")
save = Request.form("save")
if id = "" then
message=message&"对不起,你的ID号不能为空!\n"
end if
if password <> passwords then
message=message&"您的管理口令不正确!\n"
end if
if message <> "" then
call error(""&message&"")
Response.end
end if
sql = "select * from gbook where id=" & id &" and userid="&userid
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
username=Rs("username")
ip=Rs("ip")
Rs.close
if save <> "" then
Response.cookies("password") = password
Response.cookies("save") = save
else
Response.cookies("password") = ""
Response.cookies("save") = ""
end if
set Rs = nothing
conn.close
set conn = nothing
%>
<%
Response.End
end sub
%>